home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / f6.omed < prev    next >
Text File  |  1996-04-22  |  524b  |  15 lines
  1. /* F6 */
  2. if ~open("f_keys","T:f_keys.omedtemp",R) then exit
  3. f6 = readln("f_keys")
  4. call close("f_keys")
  5. rn_isranged var rn_state
  6. if ~rn_state then ed_goto line f6
  7. else do
  8.     if ~open("rn_begin","T:rn_begin.omedtemp",R) then exit
  9.     rn_begin = readln("rn_begin")
  10.     call close("rn_begin")
  11.     ed_goto line f6
  12.     ed_getcurrtrack var currtrack
  13.     if f6>=rn_begin then rn_setrange starttrack currtrack startline rn_begin endtrack currtrack endline f6
  14.     else rn_setrange starttrack currtrack startline f6 endtrack currtrack endline rn_begin
  15. end